home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / demo / kushida / 69.bas < prev    next >
BASIC Source File  |  1995-02-06  |  9KB  |  170 lines
  1. 10 PLAY OFF
  2. 20 LOAD@ "ED02.FMB" : LOAD@ "ED05.PMB"
  3. 30 CLS : COLOR 5
  4. 40 PRINT "KINKY LOVE CHILD"
  5. 50 PRINT "written  TAKAO KUSHIDA"
  6. 60 PRINT "注　このプログラムはループしています"
  7. 70 S$="%CQ8T130" : PLAY S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$
  8. 80 '
  9. 90 '
  10. 100 '
  11. 110 AL$="@20V8O3L16" : AR$=AL$+"V7" 
  12. 120 A1L$=AL$+"D#32E4&E32&EF4G4A8G2 F8E8 D8 E8"
  13. 130 A1R$=AR$+"R 32C4&C32&CD4E4F8E2 D8C8<B8>C8"
  14. 140 A1E$=AL$+" D4&D8C8&C2<B4&B8>C8&C4D4"
  15. 150 A1F$=AR$+"<B4&B8A8&A2 G4&G8 A8&A4B4"
  16. 160 A2L$=AL$+"D#32E4&E32&EF4G4A8G2 >C8<B8A8B8"
  17. 170 A2R$=AR$+"R 32C4&C32&CD4E4F8E2  A8 G8E8G8"
  18. 180 A2E$=AL$+">C4<G8A4G#8G8F8 D#32E32FEF E4R4 <G4 "
  19. 190 A2F$=AR$+" G4 E8F4F8 E8D8 CDCD       C4R4 <E4 "
  20. 200 A3L$=AL$+" C1 E4&E8 D4&D8 E4"
  21. 210 A3R$=AR$+"<G1>C4&C8<B4&B8>C4"
  22. 220 A3E$=AL$+" D4&D8C2&C8 <B4&B8>C4&C8D4"
  23. 230 A3F$=AR$+"<B4&B8A2&A8  G4&G8 A4&A8B4"
  24. 240 A4L$=AL$+" E2&E8 D#8D8C8  E2&E8F8G8G#8"
  25. 250 A4R$=AR$+" C2&C8&C8<B8A8 >C2&C8D8E4   " 
  26. 260 A4E$=AL$+" A8G8F8E4 D8C8<B8>C2 R8 C8 E8G8"
  27. 270 A4F$=AR$+" F8E8D8C4<B8A8 G8 G2 R8 G8>C8E8"
  28. 280 A5L$=AL$+" A4B8>C4&C8<B8>C8D8C8<B8A4 F8G8A8"
  29. 290 A5R$=AR$+" F4G8 A4&A8 G8 A8B8A8 G8F4 D8E8F8"
  30. 300 A5E$=AL$+" G4&G8 A4&A8B4 B8>C8<B8A4&A8E8G8"
  31. 310 A5F$=AR$+" E4&E8 F4&F8G4 G8 A8 G8E4&E8C8E8"
  32. 320 A6L$=AL$+" A4&A8>D#32E32&E4&E8R E8 D8C4<B4&B8A4"
  33. 330 A6R$=AR$+" E4&E8>CRRCRRCR       C8<B8A4 G4&G8E4"
  34. 340 A6E$=AL$+" G4&G8E4&E8G4 G#2 >E4D4<"
  35. 350 A6F$=AR$+" D4&D8C4&C8D4 E2  >C4<B4"
  36. 360 A7L$=AL$+">C2<A8B>C8&CD8<B8GRGREG&G4 >ER D8"
  37. 370 A7R$=AR$+" A2 F8G A8&AB8 G8EREDCE&E4 >CR<B8"
  38. 380 A7E$=AL$+">C2<A8B>C8&CD8<B2>       E4 D4"
  39. 390 A7F$=AR$+" A2 F8G A8&AB8 GGRGRGG8 >C4<B4"
  40. 400 A7G$=AL$+">C2<A8B>C8&CD8 E2&E8 D#8D8<G8"
  41. 410 A7H$=AR$+" A2 F8G A8&AB8>C2&C8<B8 B8 E8"
  42. 420 '
  43. 430 DL$="@114V8O5L16" : DR$=DL$+"V3"
  44. 440 D1L$=DL$+"V4 RRCRRCRRCRRCCRCD  RREREEREREER D4"
  45. 450 D1R$=DR$+"V3<RRGRRGRRGRRGGRGB >RRCRCCRCRCCR<B4"
  46. 460 D1E$=DL$+"V4 RRCRRCRRCRRCCRCD <RRGRGGRGRGGR B4"
  47. 470 D1F$=DR$+"V3<RRGRRGRRGRRGGRGB  RRDRDDRDRDDR G4"
  48. 480 D2L$=DL$+"  <ARARGARA RARARAEG ARARGARA> C8<A>D8<A>E8< "
  49. 490 D2R$=DR$+"R8<ARARGARA RARARAEG ARARGARA> C8<A>D8<A     "
  50. 500 D2E$=DL$+"   D#32ER32DC8<A>C4 <G8A8>CD D#32ER32 DC8<A>C8 E4D4 "
  51. 510 D2F$=DR$+"R8 D#32ER32DC8<A>C4 <G8A8>CD D#32ER32 DC8<A>C8 E4D8 "
  52. 520 D2G$=DL$+"   D#32ER32DC8<A>C4 <G8A8>CD D#32ER32DC8<A>C8<<@20V5A4>D4"
  53. 530 D2H$=DR$+"R8 D#32ER32DC8<A>C4 <G8A8>CD D#32ER32DC8<A>  <<@20V4E4 B4"
  54. 540 D3L$=DL$+"V4  RRFRRFRRF RRFFRFR (F#R)3FF#RF#F#RF8F#8"
  55. 550 D3R$=DR$+"V3  RRCRRCRRC RRCCRCR<(C#R)3CC#RC#C#RC8C#8"
  56. 560 D3E$=DL$+"V4  RRGRRGRRG RRFG8GR  RRG#RRG#RRG# RRG#A#4"
  57. 570 D3F$=DR$+"V3  RRDRRDRRD RRCD8DR  RRD#RRD#RRD# RRD#G 4"
  58. 580 D3G$=DL$+"V4  E8G8B8>C8 &C2       <F8A8>C8D8 &D2        "
  59. 590 D3H$=DR$+"V3  C8E8G8 A8 &A8B8A8G8  C8E8 G8B8 &B8<G8B8>D8"
  60. 600 '
  61. 610 CL$="@106V8O4L16Q3" 
  62. 620 C1$ =CL$+"  RRCR RCRR  CRRR RRDD# RRERDERD#ERRD# DR<ER  Q8"
  63. 630 C1E$=CL$+"<(RRF)4RRAR  RRGR RGRR  GRR>F ERDR           Q8"
  64. 640 C1F$=CL$+"< RRFR RFRR GRRG RRGR   RRCR RCRR CRER GRBR  Q8"
  65. 650 C2$ =CL$+"  RRCR <F>CR<F> CR<FB32>C32 RDEF  RRGR RGRR GRRF ERD8  Q8"
  66. 660 C2E$=CL$+"  RRCR FCRR CRRR RRRR  >RRCR RCRR CRRR <BRRB   Q8"
  67. 670 C2F$=CL$+"< RRGD RGRR GRRG RRGR   Q8 V2 G#2>E4D4"
  68. 680 C3L$=CL$+"Q8 D#32ERRR32 DRRRCRRR<ARGR G#32AR32GARAE8>D#32ERRR32ERRR"
  69. 690 C3R$=CL$+"Q8 R32 CRRR32<BRRRARRR ERDR R32 ER32DEREC8 R32 CRRR32CRRR"
  70. 700 C3E$=CL$+"Q8 D#32ERRR32 DRRRCRRR<ARGR G#32AR32GARAE8>]]] E4 D4"
  71. 710 C3F$=CL$+"Q8 R32 CRRR32<BRRRARRR ERDR R32 ER32DEREC8 ]]] C4<B4"
  72. 720 C4L$=CL$+"Q6@20V7  E2<A8&A>C8&CD8  E2          < A8&A>C8&CD8"
  73. 730 C4R$=CL$+"Q7@20V6  C2<F8&F A8&AB8 >C2          < F8&F A8&AB8"
  74. 740 C4E$=CL$+"Q6@20V7  E2G8&GF8&FF8 D#8 D CR C C R R<A#>CR D4  "
  75. 750 C4F$=CL$+"Q7@20V6  C2E8&ED8&DD8 C8 <A#G#RG#G#R R R  G#RA#8 "
  76. 760 C4G$=CL$+"Q6@20V7  E8F8G8F8&FE32F32 E8 D8C8 <A8B8>C8D4 E8F8G8"
  77. 770 C4H$=CL$+"Q7@20V6  C8D8E8D8&DC32D32 C8<B8A8  F8G8 A8B4>C8D8E8"
  78. 780 C4I$=CL$+"Q6@20V7  B8>C8<G8F8&FG32F32 E8 D8C8 <A8B8>C8D4 <G8>D8<B8"
  79. 790 C4J$=CL$+"Q7@20V6  G8 A8 E8D8&DE32D32 C8<B8A8  F8G8 A8B4  E8 B8 G8"
  80. 800 C5L$=CL$+"Q8@20V6  C1D1"
  81. 810 C5R$=CL$+"Q8@20V5 <G1B1"
  82. 820 C5E$=CL$+"Q8@20V6  E2F8&FE8&E D8  E2&E4               D4 "
  83. 830 C5F$=CL$+"Q8@20V5  C2D8&DC8&C<B8 >C8>E<C8>D<C8>C<E<A8 B4 "
  84. 840 C5G$=CL$+"Q8@20V6  C1          E4&E8 D4&D8C4"
  85. 850 C5H$=CL$+"Q8@20V5 <A2&A4>GRGR  C4&C8<B4&B8A4"
  86. 860 C5I$=CL$+"Q6@20V8  D8    C8<B8AG8FE8D8C8 D2E8&EF8&FG8 Q8"
  87. 870 C5J$=CL$+"Q7@20V6 <B8R>V3C8<B8AG8FE8D8C8 D2E8&EF8&FG  Q8"
  88. 880 E1L$="@101V8O3L16  >C1<F1"
  89. 890 E1R$="@101V7O3L16   G1 C1"
  90. 900 E1E$="@101V8O3L16   G2F2>C1"
  91. 910 E1F$="@101V2O3L16   D2C2 G1"
  92. 920 '
  93. 930 B1$= "@28V8O3L16  C4C&C8CRC<E8F8G12D24  E4E&E8ERDE8F8G8"
  94. 940 B1E$="@28V9O3L16 <FCF8EF8F8FF8G8A8      GD8E8F8F# GRRA A#8B8"
  95. 950 B1F$="@28V9O3L16 <FCF8EF8FGGRG8FG8     >CCRCR<B>CRC "
  96. 960 B2$ ="@28V9O3L16 <FRRFRRCRFRRRRRD#E     FRRFRRFRFRR<B>C8D8"
  97. 970 B2E$="@28V9O3L16 <ERRERRERERRRRREG      A2G4D8E8"
  98. 980 B2F$="@28V9O3L16 <G8G8DG8G8FG8F8G8      G#2D4E4"
  99. 990 B3$ ="@28V8O3L16  C8<EF8G8EARARGA8A     FCF8DE8FGRRRRRRR"
  100. 1000 B4$ ="@28V9O3L16 <GB>CRRCRRCRRRRRER  <G#B>E8DER<EREG#8B8>E8"
  101. 1010 B4E$="@28V9O3L16 <CFRFRFFRF8DG8&GA8    GGRG8FGR GRRR D4 "
  102. 1020 B5$ ="@28V9O3L16 <F8RFA4RAF8A8FD       E8RE G8G#E A4G4"
  103. 1030 B5E$="@28V9O3L16 <F8RFA4RAF8>C<ARD     E8RE G8G#8 D4E4"
  104. 1040 B5F$="@28V9O3L16 <F8RFA4RAF8>C<ARD     F#2FGRGF8G8"
  105. 1050 B6$ ="@28V9O3L16 <ARA8AGRERERED8E8     ARA8AGRERE>C8<D8EG"
  106. 1060 B6E$="@28V9O3L16  D8&DDRCDRRDD8C8DC    D8&DDRCDRE4D8E8"
  107. 1070 B7$ ="@28V9O3L16 <EFRFRFF8>C8<FB8FA#8  F#8&F#F#RFF#RF#ARF#D8F#8"
  108. 1080 B7E$="@28V9O3L16 <GRRGRFG8>D8&DC8<GB8  G#RRG#RGG#8RG#G#8A#4"
  109. 1090 B8$ ="@28V8O3L16  C4<GRA4E8F8GF#       F8>C8<BRG4G8D8G8"
  110. 1100 B8E$="@28V8O3L16  CRRC8&CCRCRRR<G4     FRRF8&FFRFRRF#G8B8"
  111. 1110 B8F$="@28V8O3L16 <GRRG8&GGRF8&FE8&ED8  CRRC8&CCRCRRRE4"
  112. 1120 B8G$="@28V9O3L16 <A8EARA8ARARAG8GF#    F&F8FRFRFREF8D8E8"
  113. 1130 B8H$="@28V9O3L16 <G2&G8D4E8 GRRRG&G8GRFG8D8G8"
  114. 1140 B9$ ="@96V7O2L16  C2&C4<]G4] E2&E4F8G8"
  115. 1150 B9E$="@96V8O2L16 <F2&F4A4 G2&G8 @28[[ >BRBRB8"
  116. 1160 '
  117. 1170 P1$= "@9V11O1L24 CRRRRRRRRRRC CRRCRRRRRCRR CRRRRRRRRRRC CRRCRRRRCRRC"
  118. 1180 S1$= "@9V11O1L24 CRRRRRRRRRRC CRRCRRRRRCRR CRRRRRRRRRRR RRRRRRRRRRRR"
  119. 1190 P2$= "@9V11O3L24 RRRRRRGRRRRR RRRRRRGRRRRR RRRRRRGRRRRR RRGRRRGRRRRR"
  120. 1200 Q2$= "@9V11O3L24 RRRRRRGRRRRR RRRRRRGRRRRG RRRRRRGRRRRR RRRGRRGRGRRG"
  121. 1210 R2$= "@9V11O3L24 RRRRRRGRRRRR RRRRRRGRRRRG RRRGRRGRGRRG RRGGRRGRRGRR"
  122. 1220 P3$= "@2V4 O7L24 (FRRFRF)3 FRRFRA48F48     (FRRFRF)4 "
  123. 1230 P4$= "@6V2 O5L16 ((RRCR))4"
  124. 1240 P5$= "@1V7 O0L16 (GRRRGRRR)4"
  125. 1250 S5$= "@1V7 O0L16 (GRRRGRRR)G"
  126. 1260 SS5$="@1V6 O0L16 GRRRRRRR RRRRRRRR RRRRRRRR RRRRRRRR"
  127. 1270 P6$= "@2V7 O1L16 CRRCRRRC CRCRRRRC CRRCRRRC RCCRRRCR"
  128. 1280 Q6$= "@2V7 O1L16 CRRCRRRC CRCRRRRC CRRCRRRC RCCRRRCC32C32"
  129. 1290 BP1$="@1V5 O0L16  R1R2 RRCR CRCR"
  130. 1300 BP2$="@1V5 O0L16 R1 R2 GRGRGRGR"
  131. 1310 '
  132. 1320 'PLAY B8E$,E1L$,E1R$ : END
  133. 1330 'PLAY D2G$,D2H$,B6E$,C3L$,,,,P1$,P2$ :END
  134. 1340 'PLAY B1F$,C1F$,,,,,,P1$,P2$ :END
  135. 1350 'PLAY ,,,,,,,P1$,P2$,P3$ :  END
  136. 1360 'GOTO 1590
  137. 1370 '
  138. 1380 PLAY B1$ ,A1L$,A1R$,,,,   ,P2$,P3$
  139. 1390 PLAY B1E$,A1E$,A1F$,,,,   ,P2$,P3$
  140. 1400 PLAY B1$ ,A2L$,A2R$,,,,P1$,P2$,P3$
  141. 1410 PLAY B1F$,A2E$,A2F$,,,,S1$,Q2$,P3$,BP2$
  142. 1420 PLAY B4$ ,A3L$,A3R$,C1$ ,,,P1$,P2$,P3$,,P5$
  143. 1430 PLAY B4E$,A3E$,A3F$,C1E$,,,P1$,Q2$,P3$,,P5$
  144. 1440 PLAY B4$ ,A4L$,A4R$,C1$ ,,,P1$,P2$,P3$,,P5$
  145. 1450 PLAY B1F$,A4E$,A4F$,C1F$,,,P1$,Q2$,P3$,,P5$
  146. 1460 PLAY B2$ ,A5L$,A5R$,C2$ ,,,P1$,P2$,P3$,,P5$
  147. 1470 PLAY B2E$,A5E$,A5F$,C2E$,,,P1$,Q2$,P3$,,P5$
  148. 1480 PLAY B2$ ,A6L$,A6R$,C2$ ,,,P1$,P2$,P3$,,P5$
  149. 1490 PLAY B2F$,A6E$,A6F$,C2F$,,,S1$,R2$,P3$,,S5$
  150. 1500 PLAY B5$ ,A7L$,A7R$,D1L$,D1R$,,P1$,P2$,P3$,P4$,P5$
  151. 1510 PLAY B5E$,A7E$,A7F$,D1E$,D1F$,,P1$,Q2$,P3$,P4$,P5$
  152. 1520 PLAY B5$ ,A7L$,A7R$,D1L$,D1R$,,P1$,P2$,P3$,P4$,P5$
  153. 1530 PLAY B5F$,A7G$,A7H$,D1E$,D1F$,,S1$,R2$,P3$,P4$,S5$,BP1$
  154. 1540 PLAY B6$ ,D2L$,D2R$,C3L$,C3R$,,P1$,P2$,P3$,P4$
  155. 1550 PLAY B6E$,D2E$,D2F$,C3L$,C3R$,,P1$,P2$,P3$,P4$
  156. 1560 PLAY B6$ ,D2L$,D2R$,C3L$,C3R$,,P1$,P2$,P3$,P4$
  157. 1570 PLAY B6E$,D2G$,D2H$,C3E$,C3F$,,S1$,Q2$,P3$,P4$,BP1$
  158. 1580 PLAY B7$ ,D3L$,D3R$,C4L$,C4R$,,P5$ ,P2$,P3$,P4$
  159. 1590 PLAY B7E$,D3E$,D3F$,C4E$,C4F$,,P5$ ,P2$,P3$,P4$
  160. 1600 PLAY B8$ ,D3G$,D3H$,C4G$,C4H$,,SS5$,P2$,P3$,P4$
  161. 1610 PLAY B8$ ,D3G$,D3H$,C4I$,C4J$,,SS5$,P2$,P3$,P4$
  162. 1620 PLAY B8E$,C5L$,C5R$,,,,P6$,P2$,P3$
  163. 1630 PLAY B8F$,C5E$,C5F$,,,,Q6$,P2$,P3$
  164. 1640 PLAY B8G$,C5G$,C5H$,,,,P6$,P2$,P3$,P4$
  165. 1650 PLAY B8H$,C5I$,C5J$,,,,Q6$,R2$,P3$,P4$
  166. 1660 PLAY B9$ ,A1L$,A1R$,,,,SS5$
  167. 1670 PLAY B9E$,A1E$,A1F$
  168. 1680 PLAY B1$ ,A2L$,A2R$,,,,P1$,P2$,P3$,SS5$
  169. 1690 PLAY B1F$,A2E$,A2F$,,,,P1$,Q2$,P3$,P5$    : GOTO 1420
  170.